home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / prism127.arc / ~COLORS.PGE (.txt) < prev    next >
Microsoft Windows Help File Content  |  1990-08-01  |  1KB  |  37 lines
  1. :DefineVars
  2. >.v_exist[LoCo#] .then[return]
  3. >.define[LoCo#] .define[HiCo#] .define[Color#]
  4. >randombase#=127 Color#=11
  5. >.cls Return
  6. :Return
  7. >.window[text center center  3 44 white white single]
  8. >.window[menu bottom center  2 12 white white single]
  9.  How would you like to view the colors ??
  10. ?Randomly Key=Again ?Sequentially Key=Background
  11. :Randomly
  12. !-> Set color to random number
  13. >Color#=^random#
  14. !-> Adjust hi and lo colors
  15. >LoCo#=^Color#-16    HiCo#=^Color#+96
  16. !-> Make sure colors are in range 0..127 { non blinking }
  17. >LoCo#<0 .then[LoCo#+127]  HiCo#>127 .then[HiCo#-127]
  18. >.window[text top left 7 34 ^Color#] .window[menu center left 2 12 white]
  19.   this is color# ^LoCo#.  
  20.  > >  This is color# ^Color#.  < <
  21.   THIS IS COLOR# ^HiCo#.  
  22. >.hilite[2 1 34 ^LoCo#] .hilite[6 1 34 ^HiCo#]
  23. ?Again Randomly ?Return Key=Sequentially
  24. :Sequentially
  25. !-> make sure colors are still in range 1..255
  26. >Color#>255 .then[Color#-255]   Color#<0 .then[Color#+255]
  27. >.window[text top right 7 34 ^Color#] .window[menu center right 5 11 white]
  28.                           
  29. |This is color# ^Color#.
  30.                           
  31. ?BackGround Color#<8 .then[Color#*16] .else[Color#+16]
  32. ?ForeGround Color#+1
  33. ?LastBackGr Color#-16
  34. ?PrevForeGr Color#-1
  35. ?Return Key=Randomly key=r
  36. >Page<>Return .then[key=^page page=sequentially]
  37.